home *** CD-ROM | disk | FTP | other *** search
/ Windows Shareware Gold / Windows Shareware Gold Volume 3 Number 1 (Sherburne Knowledge Systems) (1991).iso / apps / f1243 / ready.pas < prev    next >
Pascal/Delphi Source File  |  1990-10-02  |  864b  |  42 lines
  1. program Ready(input, output);
  2.  
  3. const
  4.     pi = 3.14159;
  5.  
  6. type
  7.     string = array[0..48] of char; (* holds textual strings *)
  8.  
  9. var     i, j :integer;
  10.     ch : char;
  11.     r : real;
  12.     Rsp : string;
  13.     F : text;
  14.  
  15. begin
  16.     assign( F, 'zip.pas' );
  17.     rewrite( F );
  18.     writeln( F, 'program Zip( input, output );' );
  19.     writeln( F, 'const' );
  20.     writeln( F, '  pi = 3.14159;' );
  21.     writeln( F, 'var' );
  22.     writeln( F, '  i : integer;' );
  23.     writeln( F, 'begin' );
  24.     writeln( F, ' for i := ', 1:1, ' to ', 10:1 );
  25.     writeln( F, ' do writeln( i );' );
  26.     writeln( F, ' writeln( ', pi:7:4, ' );' );
  27.     writeln( F, 'end.' );
  28.     close( F );
  29.  
  30.     repeat
  31.         i := 0;
  32.         j := 0;
  33.         r := 0;
  34.  
  35.         write( 'enter an int, real, int, string: ' );
  36.         readln( i, r, j, Rsp );
  37.         writeln( i, ' ', r, ' ', j, '-', Rsp );
  38.                 write( 'continue (y/n)? ' );
  39.         readln( ch );
  40.     until    ch = 'n';
  41. end.
  42.